home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00362.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  1.2 KB  |  38 lines
  1. on animSyncRain startmem, endmem, whatSprite, whatsound, whenSound
  2.   global animSpeed
  3.   puppetSprite(whatSprite, 1)
  4.   set loopCounter to 0
  5.   if (whenSound = 1) and (string(whatsound) <> EMPTY) then
  6.     puppetSound(1, "thdr4")
  7.   end if
  8.   repeat with x = the number of member startmem to the number of member endmem
  9.     set loopCounter to loopCounter + 1
  10.     if the platform = "Macintosh,PowerPC" then
  11.       wait(animSpeed + 8)
  12.     end if
  13.     if loopCounter > 1 then
  14.       set the memberNum of sprite whatSprite to the number of member startmem + loopCounter
  15.     else
  16.       if loopCounter = 1 then
  17.         set the memberNum of sprite whatSprite to the number of member startmem
  18.       end if
  19.     end if
  20.     updateStage()
  21.   end repeat
  22.   set loopCounter to 0
  23.   repeat with x = the number of member startmem to the number of member endmem
  24.     set loopCounter to loopCounter + 1
  25.     wait(animSpeed + 8)
  26.     if loopCounter > 1 then
  27.       set the memberNum of sprite whatSprite to the number of member startmem + loopCounter
  28.     else
  29.       if loopCounter = 1 then
  30.         set the memberNum of sprite whatSprite to the number of member startmem
  31.       end if
  32.     end if
  33.     updateStage()
  34.   end repeat
  35.   puppetSound(0)
  36.   puppetSprite(6, 0)
  37. end
  38.